Chip 2007 April/CHIP CD (4 - 2007).iso/bestuur/taskman/SuperCopier2beta1-9.exe/SuperCopier2.exe/0/RCDATA/TCOPYFORM/TCOPYFORM.txt

Text File | 2006-07-07 | 19KB | 781 lines

object CopyForm: TCopyForm
  Left = 268
  Top = 103
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  BorderIcons = [biSystemMenu]
  BorderStyle = bsToolWindow
  Caption = 'CopyForm'
  ClientHeight = 395
  ClientWidth = 400
  Color = clBtnFace
  Constraints.MinHeight = 169
  Constraints.MinWidth = 408
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Microsoft Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  DesignSize = (
    400
    395)
  PixelsPerInch = 96
  TextHeight = 13
  object ggAll: TSCProgessBar
    Left = 8
    Top = 48
    Width = 385
    Height = 17
    Anchors = [akLeft, akTop, akRight]
    BorderColor = clBlack
    FrontColor1 = clRed
    FrontColor2 = clBlue
    BackColor1 = clGray
    BackColor2 = clWhite
    FontProgress.Charset = DEFAULT_CHARSET
    FontProgress.Color = clWhite
    FontProgress.Height = -11
    FontProgress.Name = 'MS Sans Serif'
    FontProgress.Style = [fsBold]
    FontProgressColor = clBlack
    FontTxt.Charset = DEFAULT_CHARSET
    FontTxt.Color = clWhite
    FontTxt.Height = -11
    FontTxt.Name = 'MS Sans Serif'
    FontTxt.Style = []
    FontTxtColor = clBlack
    Max = 100
  end
  object llAll: TTntLabel
    Left = 8
    Top = 32
    Width = 385
    Height = 13
    Anchors = [akLeft, akTop, akRight]
    AutoSize = False
    Caption = 'llAll'
    ShowAccelChar = False
  end
  object llSpeed: TTntLabel
    Left = 8
    Top = 120
    Width = 97
    Height = 13
    Anchors = [akLeft, akTop, akRight]
    AutoSize = False
    Caption = 'llSpeed'
  end
  object llFromTitle: TTntLabel
    Left = 8
    Top = 0
    Width = 26
    Height = 13
    Caption = 'From:'
  end
  object llToTitle: TTntLabel
    Left = 8
    Top = 16
    Width = 16
    Height = 13
    Caption = 'To:'
  end
  object ggFile: TSCProgessBar
    Left = 8
    Top = 88
    Width = 385
    Height = 17
    Anchors = [akLeft, akTop, akRight]
    BorderColor = clBlack
    FrontColor1 = clRed
    FrontColor2 = clBlue
    BackColor1 = clGray
    BackColor2 = clWhite
    FontProgress.Charset = DEFAULT_CHARSET
    FontProgress.Color = clWhite
    FontProgress.Height = -11
    FontProgress.Name = 'MS Sans Serif'
    FontProgress.Style = [fsBold]
    FontProgressColor = clBlack
    FontTxt.Charset = DEFAULT_CHARSET
    FontTxt.Color = clWhite
    FontTxt.Height = -11
    FontTxt.Name = 'MS Sans Serif'
    FontTxt.Style = []
    FontTxtColor = clBlack
    Max = 100
  end
  object llTo: TSCFileNameLabel
    Left = 40
    Top = 16
    Width = 353
    Height = 13
    Anchors = [akLeft, akTop, akRight]
    AutoSize = False
    Caption = 'llTo'
    ShowAccelChar = False
  end
  object llFrom: TSCFileNameLabel
    Left = 40
    Top = 0
    Width = 353
    Height = 13
    Anchors = [akLeft, akTop, akRight]
    AutoSize = False
    Caption = 'llFrom'
    ShowAccelChar = False
  end
  object llFile: TSCFileNameLabel
    Left = 8
    Top = 72
    Width = 385
    Height = 13
    Anchors = [akLeft, akTop, akRight]
    AutoSize = False
    Caption = 'llFile'
    ShowAccelChar = False
  end
  object pcPages: TTntPageControl
    Left = -1
    Top = 150
    Width = 404
    Height = 254
    ActivePage = tsErrors
    Anchors = [akLeft, akTop, akRight, akBottom]
    Images = MainForm.ilGlobal
    MultiLine = True
    TabOrder = 6
    OnChange = pcPagesChange
    object tsCopyList: TTntTabSheet
      Caption = 'Copy list'
      ImageIndex = 8
      DesignSize = (
        396
        225)
      object btFileTop: TTntSpeedButton
        Left = 0
        Top = 0
        Width = 25
        Height = 25
        Hint = 'Move files to top'
        Flat = True
        ParentShowHint = False
        ShowHint = True
        OnClick = btFileTopClick
      end
      object btFileUp: TTntSpeedButton
        Left = 0
        Top = 28
        Width = 25
        Height = 25
        Hint = 'Move files up'
        Flat = True
        ParentShowHint = False
        ShowHint = True
        OnClick = btFileUpClick
      end
      object btFileDown: TTntSpeedButton
        Left = 0
        Top = 56
        Width = 25
        Height = 25
        Hint = 'Move files down'
        Flat = True
        ParentShowHint = False
        ShowHint = True
        OnClick = btFileDownClick
      end
      object btFileBottom: TTntSpeedButton
        Left = 0
        Top = 84
        Width = 25
        Height = 25
        Hint = 'Move files to bottom'
        Flat = True
        ParentShowHint = False
        ShowHint = True
        OnClick = btFileBottomClick
      end
      object btFileAdd: TTntSpeedButton
        Left = 0
        Top = 117
        Width = 25
        Height = 25
        Hint = 'Add files'
        Flat = True
        ParentShowHint = False
        ShowHint = True
        OnClick = btFileAddClick
      end
      object btFileRemove: TTntSpeedButton
        Left = 0
        Top = 145
        Width = 25
        Height = 25
        Hint = 'Remove files'
        Flat = True
        ParentShowHint = False
        ShowHint = True
        OnClick = btFileRemoveClick
      end
      object btFileSave: TTntSpeedButton
        Left = 0
        Top = 178
        Width = 25
        Height = 25
        Hint = 'Save copy list'
        Flat = True
        ParentShowHint = False
        ShowHint = True
        OnClick = btFileSaveClick
      end
      object btFileLoad: TTntSpeedButton
        Left = 0
        Top = 206
        Width = 25
        Height = 25
        Hint = 'Load copy list'
        Flat = True
        ParentShowHint = False
        ShowHint = True
        OnClick = btFileLoadClick
      end
      object lvFileList: TTntListView
        Left = 25
        Top = 0
        Width = 371
        Height = 220
        Anchors = [akLeft, akTop, akRight, akBottom]
        BevelInner = bvLowered
        BevelOuter = bvNone
        Columns = <
          item
            Caption = 'Source'
            Width = 250
          end
          item
            Alignment = taRightJustify
            Caption = 'Size'
            Width = 75
          end
          item
            Caption = 'Target'
            Width = 300
          end>
        ColumnClick = False
        HideSelection = False
        MultiSelect = True
        OwnerData = True
        ReadOnly = True
        RowSelect = True
        PopupMenu = pmFileContext
        TabOrder = 0
        ViewStyle = vsReport
        OnData = lvFileListData
      end
    end
    object tsErrors: TTntTabSheet
      Caption = 'Error log'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImageIndex = 9
      ParentFont = False
      DesignSize = (
        396
        225)
      object btErrorClear: TTntSpeedButton
        Left = 0
        Top = 0
        Width = 25
        Height = 25
        Hint = 'Clear log'
        Flat = True
        ParentShowHint = False
        ShowHint = True
        OnClick = btErrorClearClick
      end
      object btErrorSaveLog: TTntSpeedButton
        Left = 0
        Top = 28
        Width = 25
        Height = 25
        Hint = 'Save log'
        Flat = True
        ParentShowHint = False
        ShowHint = True
        OnClick = btErrorSaveLogClick
      end
      object lvErrorList: TTntListView
        Left = 25
        Top = 0
        Width = 371
        Height = 220
        Anchors = [akLeft, akTop, akRight, akBottom]
        BevelInner = bvLowered
        BevelOuter = bvNone
        Columns = <
          item
            Caption = 'Time'
            Width = 65
          end
          item
            Caption = 'Action'
            Width = 75
          end
          item
            Caption = 'Target'
            Width = 200
          end
          item
            Caption = 'Error text'
            Width = 300
          end>
        ColumnClick = False
        HideSelection = False
        MultiSelect = True
        ReadOnly = True
        RowSelect = True
        TabOrder = 0
        ViewStyle = vsReport
        OnData = lvFileListData
      end
    end
    object tsOptions: TTntTabSheet
      Caption = 'Options'
      ImageIndex = 4
      DesignSize = (
        396
        225)
      object gbSpeedLimit: TTntGroupBox
        Left = 8
        Top = 51
        Width = 381
        Height = 44
        Anchors = [akLeft, akTop, akRight]
        Caption = 'Speed limit'
        TabOrder = 1
        object llSpeedLimitKB: TTntLabel
          Left = 272
          Top = 17
          Width = 14
          Height = 13
          Caption = 'KB'
        end
        object chSpeedLimit: TTntCheckBox
          Left = 8
          Top = 16
          Width = 177
          Height = 17
          Caption = 'Limit copy speed to:'
          TabOrder = 0
          OnClick = chSpeedLimitClick
        end
        object cbSpeedLimit: TTntComboBox
          Left = 184
          Top = 14
          Width = 81
          Height = 21
          DropDownCount = 20
          Enabled = False
          ItemHeight = 13
          TabOrder = 1
          Text = '1024'
          OnChange = cbSpeedLimitChange
          OnKeyPress = cbSpeedLimitKeyPress
          Items.Strings = (
            '64'
            '128'
            '256'
            '512'
            '1024'
            '2048'
            '4096'
            '8192'
            '16384'
            '32768')
        end
      end
      object gbCollisions: TTntGroupBox
        Left = 8
        Top = 99
        Width = 381
        Height = 44
        Anchors = [akLeft, akTop, akRight]
        Caption = 'File collisions'
        TabOrder = 2
        DesignSize = (
          381
          44)
        object llCollisions: TTntLabel
          Left = 8
          Top = 18
          Width = 161
          Height = 13
          Caption = 'When a file already exists, always:'
        end
        object cbCollisions: TTntComboBox
          Left = 184
          Top = 14
          Width = 189
          Height = 21
          Style = csDropDownList
          Anchors = [akLeft, akTop, akRight]
          ItemHeight = 13
          ItemIndex = 0
          TabOrder = 0
          Text = 'Ask what to do'
          OnChange = cbCollisionsChange
          Items.Strings = (
            'Ask what to do'
            'Cancel the whole copy'
            'Skip'
            'Resume transfer'
            'Overwrite'
            'Overwrite if different'
            'Rename new file'
            'Rename old file')
        end
      end
      object gbCopyErrors: TTntGroupBox
        Left = 8
        Top = 147
        Width = 381
        Height = 44
        Anchors = [akLeft, akTop, akRight]
        Caption = 'Copy errors'
        TabOrder = 3
        DesignSize = (
          381
          44)
        object llCopyErrors: TTntLabel
          Left = 8
          Top = 18
          Width = 166
          Height = 13
          Caption = 'When there is a copy error, always:'
        end
        object cbCopyError: TTntComboBox
          Left = 184
          Top = 14
          Width = 189
          Height = 21
          Style = csDropDownList
          Anchors = [akLeft, akTop, akRight]
          ItemHeight = 13
          ItemIndex = 0
          TabOrder = 0
          Text = 'Ask what to do'
          OnChange = cbCopyErrorChange
          Items.Strings = (
            'Ask what to do'
            'Cancel then whole copy'
            'Skip'
            'Retry'
            'Put the file at the copy list bottom')
        end
      end
      object gbCopyEnd: TTntGroupBox
        Left = 8
        Top = 3
        Width = 381
        Height = 44
        Anchors = [akLeft, akTop, akRight]
        Caption = 'Copy end'
        TabOrder = 0
        DesignSize = (
          381
          44)
        object llCopyEnd: TTntLabel
          Left = 8
          Top = 18
          Width = 108
          Height = 13
          Caption = 'At the end of the copy:'
        end
        object cbCopyEnd: TTntComboBox
          Left = 184
          Top = 13
          Width = 189
          Height = 21
          Style = csDropDownList
          Anchors = [akLeft, akTop, akRight]
          ItemHeight = 13
          ItemIndex = 0
          TabOrder = 0
          Text = 'Close the window'
          OnChange = cbCopyEndChange
          Items.Strings = (
            'Close the window'
            'Don'#39't close the window'
            'Don'#39't close if there was errors')
        end
      end
      object btSaveDefaultCfg: TTntButton
        Left = 192
        Top = 199
        Width = 196
        Height = 25
        Anchors = [akTop, akRight]
        Caption = 'Set as default options'
        TabOrder = 4
        OnClick = btSaveDefaultCfgClick
      end
    end
  end
  object btCancel: TScPopupButton
    Left = 329
    Top = 116
    Width = 65
    Height = 25
    TabOrder = 5
    TabStop = True
    Anchors = [akTop, akRight]
    ItemIndex = 0
    Caption = 'Cancel'
    ImageIndex = 6
    ImageList = MainForm.ilGlobal
    OnClick = btCancelClick
  end
  object btSkip: TScPopupButton
    Left = 257
    Top = 116
    Width = 65
    Height = 25
    TabOrder = 4
    TabStop = True
    Anchors = [akTop, akRight]
    ItemIndex = 0
    Caption = 'Skip'
    ImageIndex = 19
    ImageList = MainForm.ilGlobal
    OnClick = btSkipClick
  end
  object btPause: TScPopupButton
    Left = 185
    Top = 116
    Width = 65
    Height = 25
    TabOrder = 2
    TabStop = True
    Anchors = [akTop, akRight]
    ItemIndex = 0
    Caption = 'Pause'
    ImageIndex = 25
    ImageList = MainForm.ilGlobal
    OnClick = btPauseClick
  end
  object btResume: TScPopupButton
    Left = 185
    Top = 116
    Width = 65
    Height = 25
    Visible = False
    TabOrder = 3
    TabStop = True
    Anchors = [akTop, akRight]
    ItemIndex = 0
    Caption = 'Resume'
    ImageIndex = 26
    ImageList = MainForm.ilGlobal
    OnClick = btPauseClick
  end
  object btUnfold: TScPopupButton
    Left = 113
    Top = 116
    Width = 65
    Height = 25
    TabOrder = 1
    TabStop = True
    Anchors = [akTop, akRight]
    ItemIndex = 0
    Caption = 'Unfold'
    ImageIndex = 24
    ImageList = MainForm.ilGlobal
    OnClick = btUnfoldClick
  end
  object btFold: TScPopupButton
    Left = 113
    Top = 116
    Width = 65
    Height = 25
    TabOrder = 0
    TabStop = True
    Anchors = [akTop, akRight]
    ItemIndex = 0
    Caption = 'Fold up'
    ImageIndex = 23
    ImageList = MainForm.ilGlobal
    OnClick = btUnfoldClick
  end
  object pmFileContext: TTntPopupMenu
    AutoHotkeys = maManual
    Images = MainForm.ilGlobal
    TrackButton = tbLeftButton
    Left = 204
    Top = 366
    object miTop: TTntMenuItem
      Caption = 'Top'
      ImageIndex = 12
      ShortCut = 16468
      OnClick = btFileTopClick
    end
    object miUp: TTntMenuItem
      Caption = 'Up'
      ImageIndex = 10
      ShortCut = 16469
      OnClick = btFileUpClick
    end
    object miDown: TTntMenuItem
      Caption = 'Down'
      ImageIndex = 11
      ShortCut = 16452
      OnClick = btFileDownClick
    end
    object miBottom: TTntMenuItem
      Caption = 'Bottom'
      ImageIndex = 13
      ShortCut = 16450
      OnClick = btFileBottomClick
    end
    object N1: TTntMenuItem
      Caption = '-'
    end
    object miRemove: TTntMenuItem
      Caption = 'Remove'
      ImageIndex = 15
      ShortCut = 46
      OnClick = btFileRemoveClick
    end
    object N2: TTntMenuItem
      Caption = '-'
    end
    object miSelectAll: TTntMenuItem
      Caption = 'Select all'
      ShortCut = 16449
      OnClick = miSelectAllClick
    end
    object miInvert: TTntMenuItem
      Caption = 'Invert selection'
      ShortCut = 16457
      OnClick = miInvertClick
    end
  end
  object pmNewFiles: TTntPopupMenu
    AutoHotkeys = maManual
    TrackButton = tbLeftButton
    Left = 236
    Top = 366
    object miDefaultDest: TTntMenuItem
      Caption = 'Use default destination folder ()'
      Default = True
      OnClick = miDefaultDestClick
    end
    object miChooseDest: TTntMenuItem
      Caption = 'Choose destination folder...'
      OnClick = miChooseDestClick
    end
    object miChooseSetDefault: TTntMenuItem
      Caption = 'Choose destination folder and set it as default...'
      OnClick = miChooseSetDefaultClick
    end
    object N3: TTntMenuItem
      Caption = '-'
    end
    object miCancel: TTntMenuItem
      Caption = 'Cancel'
      OnClick = miCancelClick
    end
  end
  object odCopyList: TTntOpenDialog
    DefaultExt = 'scl'
    Filter = 'SuperCopier2 Copy List (*.scl)|*.scl'
    Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing]
    Left = 300
    Top = 366
  end
  object sdCopyList: TTntSaveDialog
    DefaultExt = 'scl'
    Filter = 'SuperCopier2 Copy List (*.scl)|*.scl'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Left = 332
    Top = 366
  end
  object sdErrorLog: TTntSaveDialog
    DefaultExt = 'txt'
    FileName = 'errorlog.txt'
    Filter = 'Text files (*.txt)|*.txt'
    Left = 364
    Top = 366
  end
  object odFileAdd: TTntOpenDialog
    Filter = 'Any file (*.*)'
    Options = [ofHideReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofShareAware, ofEnableSizing]
    Left = 268
    Top = 366
  end
  object pmFileAdd: TTntPopupMenu
    AutoHotkeys = maManual
    TrackButton = tbLeftButton
    Left = 172
    Top = 366
    object miAddFiles: TTntMenuItem
      Caption = 'Add files...'
      OnClick = miAddFilesClick
    end
    object miAddFolder: TTntMenuItem
      Caption = 'Add folder...'
      OnClick = miAddFolderClick
    end
  end
  object btTitleBar: TSCTitleBarBt
    OnClick = btTitleBarClick
    Left = 107
    Top = 366
  end
  object Systray: TScSystray
    Popup = pmSystray
    Visible = False
    OnMouseDown = SystrayMouseDown
    OnBallonClick = SystrayMouseDown
    Left = 75
    Top = 366
  end
  object tiSystray: TTimer
    Enabled = False
    Interval = 500
    OnTimer = tiSystrayTimer
    Left = 43
    Top = 366
  end
  object pmSystray: TTntPopupMenu
    AutoHotkeys = maManual
    Images = MainForm.ilGlobal
    TrackButton = tbLeftButton
    Left = 140
    Top = 366
    object miStResume: TTntMenuItem
      Caption = 'Resume'
      ImageIndex = 26
      Visible = False
      OnClick = miStPauseClick
    end
    object miStPause: TTntMenuItem
      Caption = 'Pause'
      ImageIndex = 25
      OnClick = miStPauseClick
    end
    object miStCancel: TTntMenuItem
      Caption = 'Cancel'
      ImageIndex = 6
      OnClick = miStCancelClick
    end
  end
end